home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020d.dsk / INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  46 lines
  1. 10  HOME : VTAB 10: HTAB 13: PRINT "WAIT FOR LOAD"
  2. 20  PRINT  CHR$(4);"BLOAD DOC.ML"
  3. 30  PRINT  CHR$(4);"BLOAD DOCFILE,A5000"
  4. 40 LN =  PEEK(43617) *256 + PEEK(43616):LOC = 5000:ND = LOC +LN -920
  5. 50  HOME : VTAB 8
  6. 60  PRINT "ARROWS     -MOVE UP OR DOWN ONE LINE": PRINT "< AND >    -MOVE UP OR DOWN ONE PAGE": PRINT "CONTROL-B  -MOVE TO BEGINNING"
  7. 70  PRINT "CONTROL-E  -MOVE TO END": PRINT "CONTROL-P  -PRINT FILE"
  8. 80  PRINT "ESCAPE     -TO QUIT TO MENU"
  9. 90  VTAB 17: HTAB 1: PRINT "DO YOU HAVE LOWER CASE (Y OR N)?";: GET A$
  10. 100  IF A$ = "N"  THEN  POKE 4961,223: GOTO 130
  11. 110  IF A$ = "Y"  THEN  POKE 4961,255: GOTO 130
  12. 120  GOTO 90
  13. 130  POKE 250, INT(LOC/256)
  14. 140  POKE 249,LOC - PEEK(250) *256
  15. 150  CALL 4930
  16. 160  GET A$
  17. 170 A =  ASC(A$)
  18. 180  IF A = 8  THEN LOC = LOC -40: GOTO 250
  19. 184  IF A = 62  THEN LOC = LOC +920: GOTO 250
  20. 186  IF A = 60  THEN LOC = LOC -920: GOTO 250
  21. 190  IF A = 21  THEN LOC = LOC +40: GOTO 250
  22. 200  IF A = 2  THEN LOC = 5000: GOTO 130
  23. 210  IF A = 5  THEN LOC = ND: GOTO 130
  24. 220  IF A = 27  THEN  PRINT : PRINT  CHR$(4);"RUN SOFTGRAPH"
  25. 230  IF A = 16  THEN 290
  26. 240  GOTO 160
  27. 250  IF LOC <5000  THEN LOC = 5000
  28. 260  IF LOC >ND  THEN LOC = ND: GOTO 130
  29. 270  IF A = 21  THEN  CALL 4950: GOTO 160
  30. 280  GOTO 130
  31. 290  REM  PRINT
  32. 300  HOME : VTAB 10
  33. 310  PRINT "IS YOUR PRINTER ON WITH PAPER SET?";
  34. 320  GET A$
  35. 330  IF A$ = "N"  THEN 130
  36. 340  IF A$ < >"Y"  THEN 320
  37. 350  POKE 4961,255
  38. 360  PRINT : PRINT  CHR$(4);"PR#1"
  39. 370 LOC = 5000: POKE 249,136: POKE 250,19
  40. 380  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT :LN = 6
  41. 390  CALL 4950: PRINT :LN = LN +1
  42. 400  IF  PEEK(249) + PEEK(250) *256 > = ND +920  THEN 430
  43. 410  IF LN = 60  THEN  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : GOTO 380
  44. 420  GOTO 390
  45. 430  PRINT  CHR$(4);"PR#0"
  46. 440  PRINT  CHR$(4);"RUN SOFTGRAPH"